home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / Apps / SoundApps / aa_m68k_Only / SignalEditor / SignalEditor.app / scm / toplevel < prev   
Encoding:
Text File  |  1994-06-07  |  643 b   |  24 lines
  1. ;;; -*-Scheme-*-
  2. ;;;
  3. ;;; Simple and stupid read-eval-print loop (for testing purposes)
  4.  
  5. (define (top-level)
  6.   (letrec ((top-level-input)
  7.        (top-level-prompt "> ")
  8.        (top-level-environment (the-environment)))
  9.  
  10.     (do () ((eof-object? top-level-input))
  11.       (call-with-current-continuation
  12.        (lambda (control-point)
  13.      (set! top-level-control-point control-point)
  14.      (do () ((eof-object? top-level-input))
  15.        (display top-level-prompt)
  16.        (set! top-level-input (read))
  17.        (if (eof-object? top-level-input)
  18.            (begin
  19.          (newline) (exit)))
  20.        (write (eval top-level-input top-level-environment))
  21.        (newline)))))))
  22.  
  23. (top-level)
  24.